home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / cuj9204.zip / 1004107C < prev    next >
Text File  |  1992-06-02  |  462b  |  30 lines

  1. Listing 5
  2. *********
  3.  
  4. #define MAX 1000
  5.  
  6. void load_struct(instruc, instr, ...);
  7.  
  8. /************** main function ********/
  9.  
  10. load_struct(instruc, instr, va_alist)
  11. char *instruc;
  12. char *instr;
  13.    {
  14.     int k=0;
  15.     int strnglen;
  16.     va_list ap;
  17.     va_start(ap);
  18.     
  19.     while((strnglen = va_arg(ap,int)) != NULL)
  20.       {
  21.       for(k = 0; k < strnglen-1; k++)
  22.          *instruc++ = *instr++;
  23.     
  24.       *instruc++ = 0;
  25.       }
  26.     va_end(ap);
  27.     }
  28. *************    
  29.  
  30.